Dr. Windows 3/dr win3.zip/dr win3/VISUALBA/VB_SMPL.ZIP/DB-XL.EXE/DB-XL.FRM

Text File | 1994-04-07 | 14KB | 484 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   5460
   ClientLeft      =   750
   ClientTop       =   1530
   ClientWidth     =   6735
   Height          =   5865
   Left            =   690
   LinkTopic       =   "Form1"
   ScaleHeight     =   5460
   ScaleWidth      =   6735
   Top             =   1185
   Width           =   6855
   Begin FileListBox File2
      Height          =   1200
      Left            =   4080
      TabIndex        =   24
      Top             =   720
      Visible         =   0   'False
      Width           =   975
   End
   Begin PictureBox Picture2
      Align           =   2  'Align Bottom
      BackColor       =   &H00C0C0C0&
      Height          =   255
      Left            =   0
      ScaleHeight     =   225
      ScaleWidth      =   6705
      TabIndex        =   22
      Top             =   5205
      Width           =   6735
      Begin Label Label7
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Label7"
         Height          =   192
         Left            =   120
         TabIndex        =   23
         Top             =   0
         Width           =   576
      End
   End
   Begin PictureBox Picture1
      AutoSize        =   -1  'True
      Height          =   1635
      Left            =   4320
      Picture         =   DB-XL.FRX:0000
      ScaleHeight     =   1605
      ScaleWidth      =   2370
      TabIndex        =   21
      Top             =   240
      Width           =   2400
   End
   Begin TextBox Text1
      Height          =   372
      Left            =   1920
      TabIndex        =   20
      Text            =   "Text1"
      Top             =   1200
      Width           =   2052
   End
   Begin CommandButton Command3
      Cancel          =   -1  'True
      Caption         =   "Exit"
      Height          =   492
      Left            =   4320
      TabIndex        =   18
      Top             =   4320
      Width           =   1932
   End
   Begin FileListBox File1
      Height          =   1200
      Left            =   4320
      TabIndex        =   9
      Top             =   2280
      Width           =   1935
   End
   Begin DirListBox Dir1
      Height          =   1752
      Left            =   2040
      TabIndex        =   8
      Top             =   2280
      Width           =   1932
   End
   Begin DriveListBox Drive1
      Height          =   288
      Left            =   4320
      TabIndex        =   12
      Top             =   3720
      Width           =   1932
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Database"
      Height          =   2892
      Left            =   240
      TabIndex        =   0
      Top             =   1920
      Width           =   1452
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Paradox 3.x"
         Height          =   252
         Index           =   6
         Left            =   120
         TabIndex        =   7
         Top             =   2520
         Width           =   1212
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Btrieve"
         Height          =   252
         Index           =   5
         Left            =   120
         TabIndex        =   6
         Top             =   2160
         Width           =   1212
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "FoxPro 2.5"
         Height          =   252
         Index           =   4
         Left            =   120
         TabIndex        =   5
         Top             =   1800
         Width           =   1212
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "FoxPro 2.0"
         Height          =   252
         Index           =   3
         Left            =   120
         TabIndex        =   4
         Top             =   1440
         Width           =   1212
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "dBase IV"
         Height          =   252
         Index           =   2
         Left            =   120
         TabIndex        =   3
         Top             =   1080
         Width           =   1212
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "dBase III"
         Height          =   252
         Index           =   1
         Left            =   120
         TabIndex        =   2
         Top             =   720
         Width           =   1212
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Access 1.x"
         Height          =   252
         Index           =   0
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   1212
      End
   End
   Begin ComboBox Combo1
      Height          =   288
      Left            =   1920
      Style           =   2  'Dropdown List
      TabIndex        =   10
      Top             =   240
      Width           =   2052
   End
   Begin CommandButton Command1
      Caption         =   "Convert"
      Default         =   -1  'True
      Height          =   492
      Left            =   2040
      TabIndex        =   11
      Top             =   4320
      Width           =   1932
   End
   Begin Label Label6
      BackStyle       =   0  'Transparent
      Caption         =   "To Spreadsheet:"
      Height          =   252
      Left            =   360
      TabIndex        =   19
      Top             =   1200
      Width           =   1452
   End
   Begin Label Label5
      BackStyle       =   0  'Transparent
      Caption         =   "Label5"
      Height          =   252
      Left            =   1920
      TabIndex        =   17
      Top             =   720
      Width           =   2292
   End
   Begin Label Label4
      BackStyle       =   0  'Transparent
      Caption         =   "From Database:"
      Height          =   252
      Left            =   360
      TabIndex        =   16
      Top             =   720
      Width           =   1452
   End
   Begin Label Label3
      BackStyle       =   0  'Transparent
      Caption         =   "Convert Table:"
      Height          =   252
      Left            =   480
      TabIndex        =   15
      Top             =   240
      Width           =   1332
   End
   Begin Label Label2
      BackStyle       =   0  'Transparent
      Caption         =   "Database or Table:"
      Height          =   252
      Left            =   4320
      TabIndex        =   14
      Top             =   1920
      Width           =   1932
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Path of Database:"
      Height          =   252
      Left            =   2040
      TabIndex        =   13
      Top             =   1920
      Width           =   1932
   End
End
'This sample program shows you how to combine programming
'with database objects and ole automation objects.
'This program will convert a table in a database that
'the user selects, and then places it into an excel
'spreadsheet using OLE automation.

'This program assumes that you have registered Excel version
'5.0 in your registration database (REG.DAT) and that
'you installed the database component for Visual Basic 3.0
'Professional.

Dim db As database     'form level database object
Dim Connect$           'Hold connect arguments

Sub CheckEnableConvert ()

'check if table is selected and filename specified
If (combo1.Text <> "") And